home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / comm2 / mmnnnc15.lha / MM_Annonce15 / REXX / MM_LoadMM.rexx < prev    next >
OS/2 REXX Batch file  |  1995-10-03  |  905b  |  44 lines
  1. /*
  2. ** $VER: MM_LoadMM V1.0 (15.08.95)
  3. **
  4. ** Written by Reinaldo Erdey
  5. **
  6. */
  7.  
  8. options results
  9.  
  10. /* --------------------------------------------------------------- */
  11. /* Path for MailManager */
  12.  
  13. MMPRG='run MM:bin/MM'
  14.  
  15. /* --------------------------------------------------------------- */
  16. /* REXX Support Library */
  17.  
  18. if ~show('L','rexxsupport.library') then
  19.     do
  20.        if ~addlib('rexxsupport.library',0,-30,0) then CALL ERR ("Couldn't allocate rexxsupport.library!")
  21. end
  22.  
  23. /* Load MainManager is not Present */
  24.  
  25. if ~show(p,"MAILMANAGER") then
  26.     do
  27.        address command MMPRG
  28.        call Delay(250)
  29.        if ~show(p,"MAILMANAGER") then Call ERR ('cannot load command "'MMPRG'"')
  30.        address command 'SetEnv MM.running No'
  31. end
  32. Exit
  33.  
  34. /* --------------------------------------------------------------- */
  35. /* Ein Error ist aufgetreten */
  36.  
  37. ERR:
  38.  
  39. PARSE ARG String
  40. Say ''
  41. Say 'WARNING: 'String
  42. Say ''
  43. Exit
  44.